﻿Imports System.Data.OleDb
Public Class ChucVuDAO
    Public Function LoatDanhSachChucVu() As DataTable
        Dim cnn As New OleDbConnection()
        cnn = DataProvider.ConnectDB()
        Dim strSQL As String = "SELECT * FROM CHUCVU"
        Dim comand As New OleDbCommand(strSQL, cnn)
        Dim Adapter As New OleDbDataAdapter(comand)
        Dim dt As New DataTable()
        Adapter.Fill(dt)
        cnn.Close()
        Return dt
    End Function
End Class
